clean_town<-function(school_data_merged){
  school_data_merged$town.gps_new<-school_data_merged$town.gps
  
  school_data_merged<-school_data_merged %>% mutate(town.gps_new=gsub("Â","A",town.gps_new))
  school_data_merged<-school_data_merged %>% mutate(town.gps_new=gsub("Ă","A",town.gps_new))
  school_data_merged<-school_data_merged %>% mutate(town.gps_new=gsub(" Î"," I",town.gps_new))
  school_data_merged<-school_data_merged %>% mutate(town.gps_new=gsub("Î "," A",town.gps_new))
  school_data_merged<-school_data_merged %>% mutate(town.gps_new=gsub("Î","A",town.gps_new))
  school_data_merged<-school_data_merged %>% mutate(town.gps_new=gsub("Ş","S",town.gps_new))
  school_data_merged<-school_data_merged %>% mutate(town.gps_new=gsub("Ţ","T",town.gps_new))
  
  
  school_data_merged<-school_data_merged %>% mutate(town.gps_new=ifelse(grepl("44066",town.gps_new),'23 MAI',town.gps_new))
  school_data_merged<-school_data_merged %>% mutate(town.gps_new=ifelse(grepl("SECTORUL",town.gps_new),'BUCURESTI',town.gps_new))
  school_data_merged$town.gps<-school_data_merged$town.gps_new
  school_data_merged<-school_data_merged %>% select(-town.gps_new)
  
  return(school_data_merged)
  
}